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ABSTRACT 

Following a brief description of types of computer 
assisted instruction (tutorial, drill and practice, and 
simulation/games), this document provides the following BASIC 
programming routines: variable typing, range error maskings, default 
entries, having user check input, allowing users to change input, 
response checker for numbers, response checker for strings, a simple 
parser, setup interactive style, interactive style, screen scroller, 
screen oriented format, window poker, print using for numbers, 
centering text, word wrap, putting text in boxes, printer interfacer, 
typewriter sound, menu maker, user self pacer, user pacer 
pre-defined, right answer routine, wrong answer routine, section 
feedback, fading prompts, help screens, and exit routine. Each 
description includes purpose and use of the routine, how to check a 



program 
(LMM) 



for the routine, and how to program the routine in BASIC. 
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Types of CAI 



Computer assi.sted instruction is a generic tc?rm 
covering all uses of t*he computer for actual instruction. A 
r-ajor component of CAI has been the use of the computer to 
present material to, or provide practice for the student. 
T le follov/ing information identifies the most common types 
of CAI being used in educational applications. i 



Tutorial 

Tutorial CAI is characterized by the computer 
serving as a presentor of new information. There are tv/o 
subtypes of tutorial CAI found in the literature. 

Linear and Branching Tutorials are direct descendents of ^ 
programmed instruction which use the computer as a teachina 
machine. A linear tutorial takes all students straight 
through the material to be learned. A branching tutorial 
allows students to traverse different routes through the 
material. Most often, tutorials use the computer as little 
more than an electric page turner. 

Dialog tutorials are more interactive than linear and 
branching tutorials using "conversation" between the student 
and the computer. Dialog tutorials make more complete use 
of the com.puter's abilities than direct linear CAI. Dialogs 
are desendents of the socratic method of teaching using a 
questioning technique to instruct the student. 



Drill and Practice 

Drill and practice CAI provides opportunity for 
the student to use information previously obtained, much as 
flash cards are used. Drill and practice is used most often 
where rote memory is important. Drill and practice consists 
of solving a set of problems presented by the computer. 



Simulation /Games 

Simulation /games CAI not only allow the student to 
use information previously learned, but can also be used to 
implement discovery learning. These subtypes of 
simulation/games CAI have been identified in the literature. 

Games involve using the computer to compete with students, 
• i.e. the game may be won or lost. Games provide opportunity 
for students to practice skills. 
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Simulations of mechanical systems , such as a nuclear reactor 
or an automobile engine allov; students to manioulate a 
physical environment which mav not be otherwise oractical. 

Simulations of non-mechan ical systems such as voters in an 
election or ecological systems al low students to study 
complex social and political environments. 

There are no distinct dividing lines between the 
types of CAT. An individual lesson may in fact combine a 
number of CAI tyoes. ^^'ithin each CAI tyoe there are often 
differences in interpretation and apolication. 
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<ble Tvpinq 

Description of purpose and use: A proqrann written in BASIC 
expects input variables /:^h as (A) to be presenter! with 
MTiMBFRS anr? variables suf h as (A^) to Presented with 
alnhanumeric characters \-Z and 1-0). To avoid variable 
type errors in data ini, . many programmers treat all 
variables as Strinqs in -".i^^lT commands. Strinq responses can 
then be converted to the correct number by use of the va.l 
command. The Applesoft ASC command can also be U5'ed to 
convert the first letter of a strinq to decimal A^CII.code. 

How to check a program for routine: Most microcomputer 
vc^rsions of BASIC will qive the user an error messaqe if the 
wrona variable type is typed into the computer. 

f^ow to program routine in BASIC: 

213^^0 RFM VARIABLR TYPINC 

2nin PRINT 

21120 PRINT "PRFSS 1 THEN ' RFTURN ' TO CO ON": PRINT 

21130 FLASH : PRINT "TRY TO FNTFR 'ONF'!";: NORMAL 

21140 PRINT " "; 

211S0 TNVFRSF : PRINT "THFN TRY MM": NORMAL 

?ll^Oi PRINT : INPUT " = = = = >"; A9: REM SHOU'LO BF A9$ 

21170 PRINT : PRINT "TO AVOID ERRORS 1" 

211R0 PRINT "USE STRING VARIABLES FOR PATA INPUT 1" 

211.^0 PRINT : PRINT : PRINT : VP = 23: GOSUB Rn00: HOME 
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Range Krror Masking 

Pescription of purpose and use: This techninue screens out 
rt-"?sponses that are out of desired ranqe. 



How to check a program for routine: If a ranae screeninrj or 
ma^^kinn techninup is not used a user can Innut undesired- 
rr^SDonse^s to a nronua:n. ^"»ut of ranae responses can cause 
many calcmlation probler>is or 'bomb' the nrogram. 



How to oroqram routine in RASIC: 



1(30:T PV'^M PAMGf-^ F.Rr?OR FFPHBACK 

IPilM 'jv.y^' jNjprTT VARIABLFS - 

1^2^ PPM OUTPUT VARIA^.r.^?^ - 

IPf?^^ ^?F^M INTFPNAL VARIAPLFS - J9 

1 Pr.nn PV'^INT "TMI WK" ; 

li^GC-t FOR J9 = 1 TO PRINT CHR.^ i^);: ^F^ RACK CURSOR UP 



i(^8n CALF, p.r,n: RFM Cr.RAP RICHT/CF^RSOR 
.1 n9n rp.ti^rnT 

flow to call routine from program: The desired ranae is 
criec^ked by A'^CII value in main prograrri. Out of range 
resDonsos branch nronram to subroutine, .^^ubroutine aives the 
Tf^irJK f'^f?dback then resets the cursor for a new response. 

^^ample proqram usage: 

HO Mr 

2l?2C> PRI^^T "FMTFP A MflM>^FP FROM 1 TO : PRINT 

FI.ASf-^ :.PK'-FMT "TRY TO f^:MTFR ' ' (^R 'A'!";: 
212''*^- M0P^1AL : PPir'^T " 

'^12'>n IMVFRSF : PPTMT "THPK] TRY '6'!": NORMAL : PRINT 

■?1?7(5 IF A^^C (AN?) < OR ASC (A^^$) > ^7 7HPN HOSriR 

GOTO 212 

2l7no\ rr^JKT "IKPPOVP PPOCRAMMINC PY "^ASKINC OFF Of^T 

OF PA^^cy ^^^''sPON^^^^ . " : cos[m r;'UH^ 
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Default Entries 

Description of purpose and use: This routine allows the 
user to just press return in order to input a common 
response. This saves typing time and reduces the chance of 
error. 

How to check a program for routine: If the program prompts 
the user with common responses requiring the user to or\ly 
press RETURN (or ENTER) then the program has a default entry 
rou t i ne . 

How to program routine in BASIC: 

REM USING DEFAULT ENTRIES 
REM INPUT VARIABLES « DES (DEF/ULT) 
REM OUTPUT VARIABLES - A$ (ANSVvER) 
REM INTERNAL VARIABLES - 19^ A9$ ^ A8$ 
INVERSE 
PRINT DE$; 
GET A9S 

IF A9S = CHR$ (13) THEN A$ = DE$: NORMAL : RETURN 
FOR 19 = 1 TO LEN (DF$) : PRINT CHR$ (8);: NEXT 19 
CALL " 868 : REM CLEAR TO EN'D OF LINE 
NORMAL 
PRINT A9S; 
INPUT "";A8S 
A$ = A9$ + A8$ 
RETURN 

How to call routine from program: The input variable DES 
(Default Entry) must be set in the ma in program before 
calling the routine. nphe output variable AS (Answer $tring) 
returns the user's answer to the main program. If you want 
the answer to be a number use the statement A = VAL (A$) 
before returning to the main program. 

Sample program usage: 

22100 REM DEFAULT ENTRIES 

22110 PRINT "ARE DEFAULT ENTRIES USEFUL? 
22120 DE$ = "Y": GOSUB 2000 
22130 HOME 

22140 PRINT : PRINT : PRINT "INSTEAD OF TYPING IN A 
FREOUENTLY USED" 

22150 PRINT : PRINT "VALUE^ ERRORS CAN BE REDUCED BY 
OFFERING"; 

22160 PRINT : PRINT "THE USER A « "; 
22170 DE$ = "DEFAULT": GOSUB 2000 
22180 IF A$ < > "DEFAULT" THEN 22200 
22190 GOTO 22300 

22200 PRINT : PRINT "WRONG^ DEFAULTS DO HELP REDUCE 
ERRORS . " 

22210 VP = 21: GOSUB 8000 
22220 GOTO 22190 



2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
20R0 
2090 
2100 
2110 
2120 
2130 
2140 
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Having User Check Input 

Description of purpose and use: Allows user to check for 

tvoino rriistakes^ If a mistake is found the user may then qo 
ancl correct i t . 

How to check a program for routine: A proaram has this 

rontine if it asks the user if the inout data is correct. 
If the data is incorrect the program should allow the user 
to chanqe the data. 

How to program routine in BASIC: 



2 2(^(^ 
2220 

226:^ 
L3MF 
2 27 0 



RFM HAVING HSFR CHECK INPUT 

RPN* INP^/T VAPIARLFS - 

RPV^ OMTPUT VARIABLES - Al$ 

RFM INTFRNAf. VARIABLES 

VTAB 2 2 

PRINT "IS THIS INPUT CORRECT? ";: 

VTAB 22: HTAB 1: CALL - 86R: REM 

RETl'RM 



GET Al$ 
CLEAR TO 



END 0^ 



Mow to call routine from program: This routine asks the 
user if the input is correct and returns the users answer to 
the main prcqraT! as variable Al$. The main program should 
then branch according to AIS as in line 22420 in the sample 
oroo ram . 



Sample program usage: 



22300 
22310 
22320 
22330 
22340 
223S0 
2 2 3 6 0 
22370 
TIME" 

22::bo 

22390 
22400 
22410 
22420 
22430 
22440 
22450 
22460 



REM CHEC^^TNG INPUT & CHANGING INPUT 
HOME 

^RIMT ''WHAT rs THE NAME OF VOPR ALMA MATER? ": PRINT 
IMPUT '''';A^: 
CO SUB 2 2 00 

11 Al.^: ^ "M" THEN 22400 

MOMF 

VTA^ 10: PRirr^ '*AMF5WER the IST oh est ion WRONG THIS 

VP = 23: GOSUR 0000 

GOTO 22 300 
V9 = 10 : H9 = 1 : COSHP 24 00 

GOHHB 2200 

IF Al^ = "N'' THEN 22400 
VTAB 15 

PRINT "I HOPE ";AS;" IS IfAVING" 
PRINT : PRINT "A GOOD YEAR IN SPORTS." 
VP = 23: GOSUR 8000 
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Allowinq User To Change Input 

Description of purpose and use: Allows user to correct 
incorrect innut responses by retyping incorrect portions of 
the oriQinal response and copying correct portions by usinq 
the rinht arrow key. 

How to check a program for routine: A program has some form 
of this routine if it allows the user to correct responses 
by retyping incorrect portions and copying correct responses 
portions. The' cursor restarts at the original inout 
To cation to facilitate the process . 



How to program routine in BASIC: 

24no RRM ALLOWING USER TO CHANGF INPUT 

2A1C^ RRM INPUT VAPIARLFS - A$ ^ V9 ^ H9 

?42(^ RFM OUTPUT VARIAPLES - 

2430 RFM INTERNAL VARIABLES - A9$ 

2440 VTAB V^: HTAR H9 

24S0 PRINT A$; 

2460 VTAB V9: HTAB H9 

2470 INPUT "";A9$ 

24R0 IF A9S = THEN RETURN 

2490 A$ = A9S 

2500 RETURN 



How to call routine from program: The main program must 
pass the original incorrect response AS (Answer String). The 
desired cursor location is Passed to the routine by V9 
(Vertical location) and H9 (Horizontal location) . The 
response AS is set equal to thn retyped response A9$ before 
pronram control is sent back to the main program. 



Sample program usage: 

22300 RFM CHECKIMH INPUT & CHANGING INPUT 
22310 HOME 

22320 PRINT "WHAT IS THE NAMF OF YOUR ALMA, MATER? ": PRINT 

2 23 30 INPUT "";AS 

22340 nosUB 2200 

223S0 IF Al^^ = "N" THFN 22400 

2 2360 HOME 

22370 VTAB 10: PRINT "ANSWER THE 1ST OUFSTION WRONH THIS 
TIME" 

223R0 \rp = 23: nosUB 8000 
22300 GOTO 22300 

22400 ^^9 = 10:H9 = 1: HOSU^ 2400 
22410 COSUB 2200 
22420 IF Al$ = "N" THEN 22400 
22430 VTAB 15 

22440 PRINT "I HOPE ";A$;" IS HAVING" 

22450 PRINT : PRINT "A GOOD YEAR IN SPORTS." 

224^0 VP = 23: GOSUB 8000 
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Response Checker For Numbers 

Description of purpose and use: This routine allows user to 
answer numerical Questions within a Preset ranqe (ie. + or - 
.^01 of the desired response). Such a routine allows 
rounding errors in response checking . 

How to check a program for routine: A orogram without a 
tolerance in a number input checking routine will not allow 
user roundinq errors. 



How to program routine in BASIC: 



3(^00 RFM RPSPOMSF CHECKFR FOR NUMBFRS 

3(^lr^ RFM INPUT VARIARLFS - A, CA , TL 

3020 RFM OUTPUT VARIAHLRS - CR 

3030 RFM IMTFRNAL VARIABLFS - 



3040 CP 
3050 IF 



3060 



0 

(A > 
RFTURN 



= CA ^ TL) AMP (A < = CA + TL) THEN CR = 1 



How to call routine from program: The input variables: a 
(user Answer), CA (Correct Answer), and TL (ToLerance) must 
be passed from the main proqram. The output variable CP 
(CoRrect) will he returned as (1) if response is within the 
desired ranae; (0) is returned if response is ouh-of -ranqe . 

Sample program usage: 

23100 RFM NUMBFRS 

23110 IMPUT "WHAT IS 17 + R? ";AS 

23120 GOSUR 2200 

23130 IF Al." < > "Y" THFM = R:H9 = 17: GOSUR 2400 

23140 A = VAL (A$) 

231SO CA =^ 2'^:Tr, = .001: COSUB 3000 

231f;0 VTAB 10:vp = 23 

231 70 TT^ CR ^- 1 THEN GOSUB 9000: nosUR P0O0 

2^1?^0 TF CP = 0 THFM GOSUR ^200: GOSUR 8000 
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Response Checker For Strings 

Description of purpose and use: This routine allows proaram 

to check a user String response aqainst a riesired response. 

Any initial spaces typed by the user prior to the response 
are iqnored. 



How to check a program for routine: A string answer 
checkinq routine without facility for excludinq initial 
blanks will keep the blank as part of the literal strina. 
This can cause improper error checkinq. 



How to program routine in BASIC: 



linn RFM PFSPONSF CHECKER FOR ^jTRINns 

mo REM INPUT VARIABLES - A$, CAS- 

3120 PFM OUTPUT VARIABLES - CR 

REM IKfTERNAL VARIABLES - 

3140 CR = 0 

31SPf IF LEFTS (A$,l) = " " THEN AS = RIGHTS (A$,( LFr? 

(A.^) - 1) ) : COTO 31 S0 

316Pf IF AS = CAS THEM CR = 1 

317Pf RETURN 



How to call routine from program: The routine requires the 
input variables AS (the user Answer String) and CAS (the 
Correct Answer String) to be passed from the main program. 
After the routine removes initial response spaces, A$ and 
CAS are evaluated. The output variable CR (CoRrect) is 
returned as (1) if the strinqs are identical; (0) is 
returned if not. 



Sample program usage: 



23300 REM STRINGS 

/331i^ HOME 

23^2^ PRINT "WHAT TS THE PART OF THE COMPUTER USED BY";: 
PRINT 

23330 PRINT "HUMANS TO GIVE I MFOPMA TI ON 'tO COMPUTERS?";: 
PRINT 

233^^ INPUT "";AS 

233SPI GOSUB 2200 

2V^^60 IF AIS < > "Y" THFM V^) = 12:H9 = 1: GOSUB 2400 

2^70 CAS = "KFYBOARD": GOSUB 3100 

233R0 VTAB 15:vp = 23 

233>^0 IF CR = 1 THEN GOSUB ^C^^^O: GOSUB 8000 

23^00 IF CP = 0 THEN GOSUB 9200: GOSUB R000 
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A Si'.nple Parser 



Description of purpose and use: This parser routine allow 

user to tyne several words (sentence) in response to a 

auestion. The parser then looks at response for a desired 
word . 

How to check a proqram for routine: Programs with a parser 
routine for resnonse checkinq will look for significant 
portions of a user input. 



How to oroqram routine in BASIC: 



^23C^ 
3240 

32sn 

3260 
328f^ 
3270 
^>28n 



PFM ^ .^implf: PARSKR 
RRM INOfirp VAPIARLPS - Av^, 
RPM nrjTPHT VAPIAHLFS - CR 
RFM INTFIPI^AL VAP.IAPLR.S - 19 
CP = 

POP JQ = 1 TO (( LFN (AS) - 
IF CAB = Min$ (AS, IC), ( LFN 

NFXT 1^ 
RFTURN 



CAS 



LFN (CAS) ) + 1) 
(CAS))) THFN CR = 1: GOTO 



How to call routine from program: This oarser requires the 
input variables AS (user Answer $trinq) and CPS (Correct 
Answer Strina) to be passed from the main proqram. The AS 
is parsed to see if it includes CA$. The output variable CR 
iToRrect) is sot to (1) if AS includes CA$; CR is set to (0) 
i f not . 



Sample program usage: 

2 3SnO Rl-:'^ PARS I Mr; 

2 3510 HOMF 

23520 PRINT "TYPF IN A SFNTFMCF NAMINC THF TYPF OF" 

23S3C1 PPINT : PPINl^ "MFMORY LOPT WHFN^ A COMPUTFR LOSIFS 
POWPR . " 

2^.54 0 IMPUT "";A$ 

2 3^. SO GOSriR 22^(^ 

2'^S60 IF A]S < > "Y" THFM V9 = 12:H9 = 1: COSUR 2400 
2 3S70 CAS = "RAM'': GOSUR 320PI 

2 3SRO VTAR 1^>:VP 23 *' " • * 

2^^-;on TP CP ^- 1 THFN f^OSrjB QOPfC^i nOSFlR ROOa 

2^f=^00 IF CR 0 THFM nOS^'^^ 92ri(^: rOfJHR P0OO 



12 



Page 11 



Setup Interactive Style 

Description of purpose and use: This routine asks user to 
innut number of letters in first name (up to 2(^). rjser is 
then asked to type name (return key does not need to be 
pressed) . The typed name can be used in the remainder of 
the nro(7ram as an interactive prompt. 

How to check a program fot routine:" If a program asks for 
the-> user's name for later use, some form of this routine is 
being used. 

How to program routine in BASIC: 

4^^^n PRM SFT UP TNTFRACTIVE STYLE 

4(^1(^ RFM INPUT VARIABLES - 

4 020 PFM OUTPUT VARIABLES - N$ 

^030 REM INTERNAL VARIABLES - ML , MLS ^ N9$ , 19 

4040 NS = 

405^^ PRINT "PLEASE TYPE THE NUMBER OF LETTERS IN" 

4{^f>C^ INPUT "YOUR FIRST NAME THEN PRESS ' RETURN '->"; NL S, 

LET NL = VAL (NL$) 
4n8C^ IF NL < 1 OR NL > THEN HOME : GOTO 4(^005 

4090 PRINT : PRINT "PLEASE TYPE YOUR FIRST NAME" 
4300 PRINT "====>";: FOR 19 = 1 TO ML: PRINT ".";: NEXT 19 
4110 FOR 19 = 1 TO ML: CALL - 1008: NEXT 19: REM BACK 
I'UPSOP 

4120 FOR 19 = 1 TO NL: GET N9$ 

41^0 IF ASC (N9S) = 8 THEN NS = LEFT$ (N$,( LEN (NS) - 
1 ) ) : GOTO ^160 

4 140 TF M9S = CHRS (13) THEN RETURN 
4 1S0 r.FT MS = MS + N9S 

4 1^0 ASC (N9$) = 8 THEN PRTWT N9S;".";:i9 =19-1 

4 170 -PRINT N9$; 

4 180 NEXT 19: RETURN 

How-to call routine from program: This routine can be 
caller! fronr: any location in the main program. However, it 
is usually calleri early to facilitate use of the the user's 
r!;nrrp in prompts anr^ responses. The routine returns the 
ontnut variable MS (user Name String). 

Sample program usage: 

74000 PPM IMTT^RACTION STYLE 
74010 HOME 

74070 TS = "INTERACTION STYLE": HOSUR 6500 
74030 vjl, = 0:rA7W = 40: WT = 7:WR = 24: GOSUB 5000 
74^^40 '^OSUR 4000: PRINT • PRINT : GOSUB 4200 
74050 VP = 22: GOSUR 8000 
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Interactive Style 

Description of purpose and use: Allows proqram to prompt 
user with his/her name durinq nrocessinq. The user's name 
must have first been identified in main proqram or in the 
Setup Interactive Style routine* Routine combines user's 
name with other comments on a random basis* 

How to check a program for routine: If a proqram returns ^ 
user's name and other orompts or comments on a random, basis , 
somo form of this routine is beinq used. 



How to program routine in BASIC: 

4200 RPM INTPRACTIVF STYLF 

4210 PFM INPUT VAPIABLPS - M$ 

4220 PFM OUTPUT VARIARLRS ~ 

4230 PFM INTFRNAL VAPIARLFS - X9 

4240 PRINT 

^2 50 = I NT ( PND (1) * 3) +1 

42f^0 ON X9 GOTO 4 270,4280,4290 

427<?f PRINT "OK! ";N$;".": RFTURN 

4 2R0 PRINT "Lf^T'S KFFP GOING ";MS;"1": PFTURN 

4 290 PRINT NS;", IT'S TIMF TO MOVF ON!": PFTURN 

How to call routine from proqram: This routine can be 
called from any location in the main orogram after NS 
(user's Name S^rinq) is identified. Routine orinto response 
on screen after a random selector is qenerated. 



Sample proqram usaqe: 



24000 RFM INTFPACTION STYLF 
24010 HOMF 

24020 tS " TNTF'^^ACTIOM STYLF": GOSUR 6500 
24030 = 0:VW = 40:WT = 7:WR = 24: GOSUB S000 
24040 cnsHR 4000: PRINT : PRINT : GOSUR 4200 
240S0 VP ^ 22: GOSrjR R000 
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Screen Scroller 



Description of purpose and use: This routine creates the 
visual effect of movinq text inf or.T>at ion up on the screen 
one pane or screen at a time (usually calleri screen 
scrollinq). Each new PAGE is started at the bottom of the 
screen and scrolled up. 

How to check a program for routine: A program without a 
pane or screen orientation will scroll text lines one at a 
time with no visual starting or ending point. 

How to program routine in BASIC: 



RFM SCPFFN SCROLLFR 

SI 10 RFM INPHT VARIABLES - SS 

SI 70 RFM OUTPUT VARIABLES - 

Sn0 pPM INTERNAL VARIAFLES - 19 

S140 VTAB 24: SPEED= 100 

SI SO FOR 19 = 1 TO SS: PRINT : MEXT 19 

Slf^O SPEEn= 255: RETHRN 



How to call routine from program: The input ^S (Screen 
Scroller) controls the number of lines to be scrolled up on 
the screen. The Applesoft command SPEED is used to slow the 
process. This routine can be called from any loction in the 
main proqram. 



Sample program usage: 



?SPfnn RFM SCRFEM FORMAT 
'-^SHK^f HOMF 

25020 TS = 'VSCREEN FORMAT": COSHR 6S0O 

2 5030 WL = 0:Kat = 40:WT = 7:WB = 24: GOSUB 5000 

2S1CT0 TS = "PAGE 1": GOSUB 6200 

?^>1I0 VTAB 20:T$ = "THI.q IS A OEMOMSTRATION OF": GOSUB 6200 

25120 TS = "A SCr^OLLING SCREEN DISPLAY!": GOSUB 6200 

25130 TO = 2000: GOSUB R500 

2S140 SS = 14: GOSMB 5100 

2S1S0 VTAB P:TS = "PAGE 2": GOSUB 6200 

25 1 60 VTAB 2Pf:T$ = "THIS TS A DEMONSTRATION OF": GOSUB 620<?f 
25170 TS "A WHOLE SCREEN ORIENTATION!": GOSUB 6200 
251^^0 POKE - 16368 , P(:VP = 23: GOSUB 8000 
25 1^0 T$ = "PAGE 3": GOSUB 6200 
25200 = 23: GOSUB 8000 
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Screen Oriented Format 

Description of purpose and use: Presents information to the 
user one SCPFFN or paqe at a time. 

How to check a program for routine: Programs us inq this 
techn ique present inf ormat ion one page at a time . 
Processing can be delayed by a time loop (FOP-MFXT) . 
Commonly INPUT or (GFT or IMKFY) statements are used to 
cause the connputer to waite for a key(s) to be^oressed. 
Fach paqe is usually starting on a new screen (by using the 
HOMF or CLS command). 

How to program routine in BASIC: 

2S150 VTAP 8:T$ = "PAGF 2": GOSUR 62^^^^ 

?^^16(^ VTAB 2n:TS = "THIS I.^ A PFMONSTRA^TOM OF": GOSUR 620iC^ 
^SlVC-i T$ = "A WF^Or.F SCHFFN OP I FNTAT I ON ! " : GOSUB 620C^ 
251R0 POKF - lf,368,(^:VP = 23: GOSnR ROPH 
251^1^ t5 = "PAGF 3": GOSUR ^20Rf 
2S2nn VP = ?3: GOSUR R00f^ 

How to call routine from program: The screen orientation 
desired is produced by the GFTS and HOMF commands found in 
t-he TJ.qFP SFLF-PACFP subroutine starting. on line Rn0C^. The 
Vertical Position (VP) of the user orompt must be sent to 
the subroutine. The POKF -16368 , C^, for the Apple II, clears 
the keyboard buffer (to remove the effect of the user 
Dressing extra keys) prior to calling the subroutine. 
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Window Poker 

Description of purpose and use: Allows programmer to chanae 
monitor screen window to create special effects or to 
protect on-screen cooy. 

How to check a program for routine: If the screen window 
dimensions change during a program or text is displayed in 
the same location for several sequential screens the program 
is using some POKF statement to alter the computers default 
screen dimensions. 

How to program rout i ne in BAS IC: 

SnC^a RFM WINOOW POKFR 

^nin RKM INPUT VARIABLFS - WL , WT , WB 

S02n RFM OUTPUT VARIABLFS - 
S(n0 RFM INTFRNAL VARIABLFS - 

5040^ POKF 32, WL: RFM WINDOW LEFTMOST POSITION 
=^05C^ POKF 33 fVlVI: RFM WINDOW WIDTH 
SHfiCf POKR 34, WT: RFM WINDOW TOP MARHIN 
S07ri POKF 3^,^^^^: RFM WINDOW BOTTOM MARGIN 
SORH CALL - ^36: RFM CLFAR WINDOW/CURSOR TO TOP LFFT 
RFT[JRN 



How to call routine from program: Main program must send 
values for WL (Window top Left position) ,TVW (Window Width) , 
WT (window Top position), and WB (Window Bottom position). 
^^=^lues can be: WL ((^-39), WW (1-40), WT (0-23), and WB 
(0-24) for the APPLF II. 



.Sample program usage: 



25300 RFM WINDOW POKING DFMO 
2S310 FOR Jl = 1 TO 15 

2^^320 FOR J = 1 TO 40: PRINT "X";: NEXT j: NFXT Jl 
2S330 WL = 3:^w; = 3:WT = 9:Vm = 20: GOSUB 5000 . 
25340 WL = f;:WV7 = 30:WT = 11:WB = 18: GOSUB 5000 
25 350 WL = 34 :W = 3:WT = 9:WB = 20: GOSUB 5000 
253^0 POKF 32,0: POKE 53,40: POKE 34,0: POKF 35,24 
25370 VTAP 15:T$ = " THIS TS A WINDOW DEMONSTRATION": 
GOSUB f^200 

25^80 TD = lOOO: GOSrJB 8500 

2^-^^^^ WL = 3:WW = 34:Va7T = 11:WB = 18: GOSUB 5000 
25400 LIST 25000 « 25430 

25410 POKF 32,0: POKE 33,40: POKE 34,0: POKE 35,24 
2542*^ VP = 23: nosrjB 8000 
25430 HOME : GOTO 13000 
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Print Using For Numbers 

Description of purpose and use: This rPutine"~^a3 lows number 
output to be placed in columns anr? lined-up with respect to 
a decimal point. 

How to check a ptoqratn for routine: v^ome microcomputer 
versions of t^ASIC have a built in PRINT USING routine. 
Programmers must v;rite their own routine for those versions 
that do not include this aid. If a proqram does not line up 
t'he decimal ncvints when numbers are placed in columns pr'TMT 
'.K^INv'" is not beinci used. 

How to proqram routine in BASIC: 





R?.y\ 


PWI^JT USING FOR NUMBFRS 










f, 0 1 n 


RFM 


INPUT VARIABLES - M, DC, PR 










? n 


RF.'^ 


OUTPUT VARIABLES - NN$ 










f> M 3 H 


PFM 


IMTFRNiAr. VARIABLES - IQ, P9, 


PR 


/ N9, 


N9S , 


C9 






{10'. ^ PR) : PR = (T / (IC^ " (PR 


+ 


D) * 


5) 




''^ 5 


9 - 


IMT ((N + PR) *■ V )) / 












M9$ 


STRS (N9) :C9 = 












IF 


LF^'TS (N9S,1) = THFN 612C?[ 












FOR 


[9 = 1 TO LFM (N9S) 












IF 


MIPS (M'^.9,19,1) = THEN G9 




19 - 


1 






NFX 


T 19 












IF 


C9 = n THEN C9 = LEN (N9$) :N9$ 




N9$ 




: FOR 


= 1 


TO PR 


:N9S = N'^S + "n": NEXT T9 












HTA 


H '(nC ~ C9) 












IF-' 


L^^M (M9S) C9 > PR THFN fil5H 










ft 1 4 (1 




19 = ] TC ( ABS ( f,PN (M9?) - 


C9 


- PR 


- 1) 


) :N<^$ 


'-^ ^ 


+ " 1^ " 


: ^'^^'XT 19 












VN > 

























How to c^rll Loutine from program: The input variables N 
(Mumbe^ ) , ^'C f i^ec ima 1 Col umn 1 oca t ion ) , and PR (des i red 
Places i^^i-iht of decimal) must be passed from the main 
nroqrarp. The routine reforms the number to include the 
decimal roinr and number as a Stri-nq. 'T^he outout variable 
NN$ (Nev7 '-^Mimher Strinn) is passed back to the main oroqram. 



Samole proqram usaqe: 

2hl^^(^ PFM M[I MF R I r PR I MT U I Mr: 

?611^1 MOMF 

?^a2r-T FOR J - 1 TO S 



?^^13C^ PI 



( 1. n 



M ( 



(^B) ) - 2) ) 



'P 6 ] 4 n V = T MT ( RMH ( i ) I '? fi ) 1 : Y = TNT 
+ 1 

2fS ; - 0 7 -r V / Y 

2f^;oi' rv; = S:PR = 4 

2 f ill N = X: GOS[TB fi'^nn 
2f;*. o^O PPTMT MNS; 

2r.l9 0 PC* = 20 



RND (1) * IP) 



IS 



262ni^ N = Y: GOSUB 6(^(^0 

26710 PPINT NNS; 

26220 DC = 30 

26230 N = Z: GOSUB 6000 

26240 PRINT NNS 

26250 NFXT J 

26260 VP = 23: GOSUB 8000 
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Center inq Text 



Description of purpose and use: This subroutine facilitates 
the centerinq of text strings to meet the v/irith requirements 
of the screen or printer used for program output or display. 

How to check a orogram for routine: If such a routine is 

not used the oroarammer will have to pack a PRINT statement 

with spaces or individually TA^ each printed line to Q^t the 
desired centering. 

How to program routine in BASIC: 

6200 REM CENTERING TEXT 

6210 REM INPUT VARIABLES - T$ 

6220 REM OUTPUT VARIABLES - 

6230 REM INTERNAL VARIABLES - CL 

6240 CL = 40: REM # OF SCREEN COLUMNS 

6250 HTAB { ( (CL - LEN (T$) ) / 2) + 1) 

^260 PRINT T$ 

6270 RETURN 



How to call routine from program: The desired message to be 
centered must be defined as t5 (Text String) in the main 
nroqram. The subroutine's internal variable CL (Center 
Location) can be changed to facilitate different width 
output devises (ie. the Aople monitor display is 40 
characters v/ide and the TR.S-80 display is 64 characters 
wide) . 



Sample program usaae: 



26300 REM CPV'TERINC TEXT 
?63.10 HOME 

26320 TS = "THESE": GO.SUB 6200 

26330 T$ = "LINES ARE": HOSUB 6200 

26340 TS = "CENTERED WITH": GOSUB 6200 

26350 T$ = "THE SUBPOUTINF IN": GQSUB 6200 

26360 T$ = "LINES 6200 THROUGH 6260": GOSUB 6200 

26370 = "INPUT IS GIVEN TO THE ROU.TINE": GOSUB 6200 

263«0 T$ = "AS THE STRING VARIABLE TS OUTPUT IS": GOSUB 6200 

263<^0 T$ ^ "PLACED": GOSUB 6200 

26400 T$ ^ "IN THE": GOSUB 6200- 

26410 T$ = "CENTER": GOSUB 6200 

26420 VP = 23: GOSUB ?<00C^ 
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Word Wrap 

Description of purpose and use: This routine allows 
proqrammer to disregard the character width restrictions of 
the computers monitor when developing PRINT statements. 
This method will WPAP Excess portions of a display line on 
the blank space closest to but under the width specified. 

How to check a program for routine: Without the use of such 
a routine, the programmer wc»uld -have to count the number of 
cliaracters in each PRINT statement to avoid WRAPPING in the 
middle of a word. 



How to program routine in RA.SIC: 



fi^O\(^ RFM WORD WRAP 

filin PFM INPUT VARIARLFS - T$ , SC 
6 320 PFM OUTPUT VARIARLFS - 

f533n RFM IMTPRNAL VARIARLFS - CL , T9$, C9, L9, 19 

6340 CL = 40: RFM SCRFFN WIDTH IN COLUMNS 

63S0 IF T$ = "STOP" THFN PRINT T9$:T9$ = "": PRINT 

RFTfJRN 

6360 TS = T9S + T$ 

6370 C9 = 0 

6380 T9S = LFFTS (T$,CL - C9) 
6390 IF LFN (T9$) = LFN (T$) THFN 
6400 IF RIGHTS (T9$,l) = " 

6410 C9 = C9 + 1 
64 20 GOTO 6 3R0 

6430 PRINT r.FFT$ (T9$,CL 1) 
6440 TF SC > 1 THFN FOR 19 = ] 

6450 L9 = LFN (TS) - LEM (T9S) 
6/f60 IF L9 = 0 THFN RFTURN 

r.470 TS = RIGHT? (T.^,L9) 
64«0 GOTO 6370 



RFTURN 
THFN 6430 



TO SC - 1: PRINT : NEXT 19 



How to call routine from proqram: To make use of this 
subroutine the main proqram must supply the innut variable 
T.^ (Text Strinq). The input variable SC (SpaCinq) will 
ront: ro 1 the number of spaces between 1 ines for that sect ion 
or oaraqraph (ie. single or double space), Aft^?r each 
desired strinq is identified in the main progr-tm and sent to 
the routine with a GOSUB, the next statement should be 
T.^="STOP" iGOSUR 6300. The tS="ST0P" signals the end of the 
printinq nrocess. 

Sample program usage: 

'.?6 500 REM WORD WRAP 
26S10 HOME 

26S20 To ^ " THIS IS A SAMPLE PARAGRAPH SHOWING HOW WORD 

VrPAP WORKS.": GOSUR 6300 

26530 T.'^ = " WORD WRAP IS A ROUTINE THAT GETS RID OF THE 

NASTY MESS CAUSED BY SPLITTING WORDS AT THE END OF LINES.": 

GOSUB 6300 

ERIC 21 
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T$ = " ALL TOO OFTFN COMPUTKR FORCDD SPLITS DON ' ^ 
OCCUR TM RETWEEM SYLLABLES,": GOSUR 6300 
26550 T$ = "STOP": GOSUR 6300 

26560 tS = " WITH WORD WRAP LIMES CAN ONLY END ON SPACES 

NOT IN THE MIDDLE OF A WORD.": GOSUB 6300 

26570 T$ = " THIS CAUSES THE TEXT PRESENn^ATION TO BE MUCH 
MORE READABLE.": GOSUB 6300 
26580 TS = "STOP": GOSUB 6300 
26590 VP = 23: GOSUB 8000 
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Putting Text In Boxes 

PeiLcription of purpose and use: This routine improves the 
visual effect o^ a screen by placing ciesired text 
information in a rectangle shape. 

How to check a program for routine: Tf a program has 
several title screens with information in boxes some form of 
this routine is being used. 



How to program routine in BASIC: 



6Sn(1 RFM ROXFS 

fiSl(^ RFM INPUT VARIABLES - T$ 
6'^20 RF:M OriTPUT VARIARLFS - 

6530 RFM INTERNAL VARIABLES - R95, L9, H9, CL , 19 
fiS40 CL = 40:B9$ = 
f5550 L9 = LFM (T$) :L9 = L9 + 4 
f5Sfi0 H9 = ( (CL - L9) / 2) + 1 

FOP 19 = 1 TO L9: 
PRINT P9$; : htAB 
PRINT R9$;" ";T$;" ";B9$ 

PRINT B9$;: HTAB (H9 + L9 - 1) : PRINT B9s^ 
FOR 19 = 1 TO L9: PRINT B9S;: NEXT 19: PRINT 



658(?l 
6590 
6600 
6610 
6620 



HTAB H9 
HTAB H9 
HTAB H9 
HTAB H9 
HTAB H9 
RETURN 



PRINT B9S; : 
(H9 + L9 - 1) 



NEXT 19: PRINT 
: PRINT B9S 



How to call routine from program: The desired message must 
bo identified as tS (Text String) is the main program. The 
internal variable B9$="*" defines the character to form the 
box. The box is automatically formed with the text inside. 



Sample program usage: 



26600 RFM BOXES 

26610 VTAB B 

2662^ TS = "YOUR NAME IN LIGHTS!": noSUB 6500 

26630 TP '= 500 : GOSrjp R500: HOME 

26640 tS = nS: FLASH : GOSUB 6500: NORMAL 

26650 VP = 23: noSUB ROOO 

26660 HOME 
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Printer Interfacer 

Description of purpose and use: This routine oerrpits user 
to select use of the printer to produce hard copy. User can 
choose to skio the nrintinq process. Routine prompts user 
to turn printer on and to position paper before orinting. 

How to check a program for routine: A program without such 
a routine will HANG if the printer is OFF LINE when the 
program wants to PRINT. 

How to program routine in BASIC: 



^700 
671(^ 

67 3 0 

6740 

PRINT 

6750 

676(3 

6770 

6780 

67^0 

6R00 

6810 

6820 



REM PRINTER IMTERPACER 
REM INPUT VARIABLES - VP 
REM OnTPHT VARIABLES - A$ 
REM INTERNAL VARIABLES - A$ 

PRINT : PRINT "DO YOU WANT PRINTER OUTPUT Y OP N ?" : 
"PRESS N IP PRINTER IS OFF LINE ->"? 
GET As^ 

IF A$ < > "Y" AND AS < > "N" THEN 6750 
IF A$ = "N" THEN PRINT : RETURN 

HOME : PRINT "PLEASE TURN PRINTER ON AND ADJUST PAPER" 
VP = 23: GOSUB 8000: REM PACER 
PRINT : PRINT "PRINTING IS IN PROGRESS": PRINT 
PRINT CHRS (4);"PR#1": REM CHR$(4) IS CONTROL^-D 
RETURN 



How to call routine from program: A value for (VP) Vertical 
Position must be passed from the main orogram to position 
the print inq choice prompt. The variable AS is returnee^ to 
the main nroqram- (N) skips the printing. Routine activates 
printer interface (PR#1) anri main oroqram deactivates 
interface (PR#0) for the APPLE (use CMD"Z","OFF" for 
TRS~80) . 

Sample program usage: 



26700 REM PRINTER INTERFACER DEMONSTRATION 

26710 HOME 

26720 VP = 10: GOSUB 6700 

26790 IF AS < > "Y" THEN GOTO 26890 

26800 PRINT "THIS IS T'HF ITEM TO BE PRINTED 

26810 PRINT "TP 'T^HE PRIN'^^FR IS ON!" 

26820 PRINT CHR$ (4); "PR* 

26890 VP = 23:. GOSUB 800P 
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Typewri ter Sound 

nescriptiop of purpose and use: This routine clicks the 
comnuter's speakpr during letter printing to simulate a 
typewriter or tickertape machine. 



How to check a program for routine: If an APPLE IT program 
aives a sound effect during text printing a routine similar 
to this one is being used. 



How to program routine in BASIC: 



^.^On PPM TYPFWPITFR SOUND 

f^q]r^ PFM INPUT VARIARLFS - TS,SP 

6020 PFM OUTPUT VARIABLES - 

f^^30 REM INTERNAL VARIABLES - 19, J9 

f)'^A^ SPEFD= SP: FOR 1 9 = 1 TO LEN (T5) 

695t^ IF Min$ (T$,I9,1) = " " THEN PRINT " ";: GOTO 6980 

6Pfi(?f PRINT Min$ (T$,I9,1); 

Gmc] FOR J9 = 1 TO l:Xl = PEEK ( - 16336 ): NEXT J9 

6^)80 NEXT 19 

6^0n SPEED= 255: PRINT : RET[JRN 



How to call routine from program: This routine reguires the 
message to he assigned to ■T$ (Text String) in the main 
nrogram. Also, a value for the variable SP (SPeed) is 
reauired to set the Applesoft SPEED command. 



Sample proaram usage: 

?70i(^0i Rpf>j TUTORIAr. F^TYLE 

.^7^10 HOME 

2 7r^2'?( T$ = "TUTORIAL STYLE": nosUB 65(^0 

27':^3(^ wr. = n:W = A^iVIT = 7:WB = 24: HOSUB 5000 

27^40 SP = 150:T.^ = "WE HAVE SEEN TWO TYPES OF TUTORIAL 

S^YLF": GOSUB 6900 

27«S0 SP - 150:T? = "USED IN THIS PROGRAM!":* GOSUB 6900: 

PRINT : PRINT 
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Menu Maker 

Description of purpose and use: This routine allows the 
proqram user to make branching choices. Tn the application 
of Coinputer Assisted Instruction (CAI) learners can take 
different paths through instructional materials. 

How to check a program for routine: If a program presents 
the user with a screen of choices, to select and control 
further processing some form of this routine is being used 
either in the main program or in a subroutine. 

How to program routine in BASIC: 





R r.N 


1 m n 

/ I'l i w 


O n 




RKM 




RFM 


704fl 


HOMF 


7050 


FOR 


7060 


FOR 


7070 


FOR 


7080 


HTAR 


";TL$; 


II II 


7090 


HTAR 


";RLS; 


II II 


7100 


HTAR 


7110 


FOR 


7120 


VTAB 


7130 


MKXT 


7140 


PRIN' 


7150 


HTAP 


7160 


HTAB 


7170 


GFT 


7180 


IF 


7190 


HOMF 



NEXT J9 
PRINT " 



PRINT 



» = = = = S " • 



How to call routine from program: The variable B9$, defined 
in the main program, i<^ used to present a box on the screen. 
Then, TL? (Top Label) and BL$ (Bottom Label) are made part 
of the screen box. The main program must also define: MHS 
(menu* screen's Main Heading), mn (Menu item Number or the 
number of desired items to be included in the menu) , and the 
actual Menu items passed throuqh the array M$(I9). The 
output variable A$ (Answer) is passed back to the main 
proqram in response to the user's menu choice. The main 
orogram should then branch according to AS. 

Sample program usage: 

11^^00 REM TURORIAL MAIN MENU 
11010 LET B9$ = 

11020 TLS = "MAIN MENU":BL$ = ."TUTORIAL" 
11030 LET MN = 4 
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il04R( MH$ = "THFSE ARE OUR MAJOR CONCEPTS" 
11050 MS(1) = "A. INPUT CONCERNS" 

MS (2) = "R. OUTPUT CONCERNS" 
11070 MS (3) = "C. EDUCATIONAL CONCERNS" 
11080 MS (4) = "0. EXIT PROGRAM" 
110^)0 COSUR 7000 

11100 ON ASC (AS) « 64 GOTO 120 00,13000,14 000,15000 
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User Self Pacer 

Description of purpose and use: This routine delays program 
processing until user presses space bar. Press 'SPACF RAR' 
prompt is positioned on screen. Use of this routine allows 
users to read instruction at their own rate. 

How to check a program for routine: If a program causes the 
user to press a single key to allow program to go on some 
form of this routine is being used (T)RS-80 uses INKEY$ 
rather than GFT) . 



How to program routine in BASIC: 
8 000 RFM nS ER SELF-PACER 

B010 REM INPUT VARIABLE - VP (DESIRED VTAB POSITION -1 ) 

8020 REM OUTPUT VARIABLES - 

8030 RFM INTERNAL VARIABLES - VP, D9$ 

8040 VTAB VP: PRINT PRESS 'SPACE BAR' TO CONTINUE 

★ ***»» . 

8050 GET D9$: PRINT 

R060 IF 09$ < > CHR$ (32) THEN 8040 
8070 HOME 
8080 RETURN 



How to call routine from program: The input variable VP 
(Vertical Position) must be received from the main program 
to position the PRESS 'SPACE BAR' TO CONTINUE prompt under 
(or over) the current on screen text. 



Sample program usage: 

28200 REM USFR CONTROLLED 

28210 HOME :T$ = "USER CONTROLLED": GOSUB 6200 

2R220 POKE « 16368, 0:VP = 23: GOSUB 8000: REM THE POKE 

CLEARS THE KEYBOARD BUFFER 



\ 
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User Pacer Pre-defined 



Description of purpose and use: Causes oroqram to rielay 
through a pre-defined time factor. User normally does not 
have control over this time delay. 

How to check a program for routine: Tf program processing 
is delayed without user control , some form of this 
(FOR-MKXT) loop is being used. 



How to program routine in BASIC: 



REM USER PACFR PRR-DEFINED TIME DELAY 
flS10 REM INPUT VARIABLES - TD (TIME DELAY) 

REM OUTPUT VARIABLES - 
8S:^0 REM INTERNAL VARIABLES - D9 
RS40 FOP 09 = 1 TO TO: NEXT 09 
B^i50 RETURN 



How to call routine from program: A value for the input 
variabe TO (Time Delay) must be defined in the main program 
and passed to the subroutine. 

Sample program usage: 

29100 REM PROGRAMMER CONTROLLED PACING 
28110 TS = "PROGRAMMER CONTROLLED": GOSUB 6200 

28120 VTAB 22:T$ = "PROGRAM IS IN A DELAY LOOP": GOSUB 6200 
28130 TP = 3000: GOSUB 8500 
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Right Answer Routine 

Description of purpose and use: This routine presents the 
user with randomly selected positive feedback. The routine 
includes the user's name in several prompts. A counter 
records the number of correct resoonses each time the 
rout ine is used . 



How to check a program for routine: If a program uses 
randomly selected user oositive feedback and counts the ^ 
number of correct responses, some form of this routine is 
beinq used. 



How to program routine in BASIC: 



9C^n0 RFM RIGHT ANSWER ROHTINK 
9010 RKM INPUT VARIABLES - R, N$ 
9(320 REM OUTPUT VARIABLES - R 
9030 REM INTERNAL VARIABLES - X9 
9040 R = R 1 

9050 X9 = INT ( RND (1) * 10) + 1 
9060 ON X9 GOTO 

9 070, 908 0, 909 0,9100,9110,9120,9130,9140,9150,9160 

9070 PRINT "GOOD JOB RETURN 

9080 PRINT "EXCELLENT ";N$: RETURN 

9090 PRINT "YOn GOT IT!": RETflRN 

9100 PRINT "NO DOUBT ABOUT IT!": RETURN 

9110 PRINT "VERY GOOD ";N$: RETURN 

9120 PRINT "WONDERFUL!": RETURN 

9130 PRINT "BINGO": RETURN 

9140 PRINT "WHAT AN ACE!": RETURN 

9150 PRINT "CORRECT": RETURN 

9160 PRINT N$;" YOU ARE RIGHT": RETURN 

How to call routine from program: This routine is usually 
called from the main program after a response is evaluated 
as correct. "^he input variable N$ (user's Name $tring) and 
P (total number Riqht) must be oassed from the main proqram 
to include the user's name in random responses and to update 
the riqht item counter. The updated right item. counter (R) 
is passed back to the main Proqram. 

Sample program usage: 



29t00 REM RIGHT ANSWER 

29110 T$ = "TRY TO ANSWER THE FOLLOWING QUESTIONS 

CORRECTLY.": GOSUB 6300 

29120 T$ = "STOP": GOSUB 6300: PRINT 

29130 TS = "TRUE OR FALSE - THE ACRONYM FOR SOFTWARE WHICH 
TRANSFERS INFORMATION BETWEEM A COMPUTER AND IT'S DISK 
DRIVES IS DOS.": GOSUB 6300 
29140 T$ = "STOP": GOSUB 6300 
291B0 GET AS 

29160 IF AS < > "T" AND AS < > "F" THEN GOSUB 1000: GOTO 
29150 
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29170 PRINT 

29180 CAS = "T": GOSUB 3100 
29190 IF CR = 1 THEN HOSHB 9000 
29200 IF CP = 0 THEN GOSUB 9200 
29210 VP = 23: GOSUB 8000 
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Wrong Answer Routine 

Description of purpose and use: This routine presents the 
user with ran'^oml y selected negative feedback after an 
incorrect response. The routine includes the user's name in 
several orompts* Two counters are used. One counter records 
the overall number -^f wrong responses each time the routine 
is used. The second counter is usually reset in the main 
program and can be used to control the number of user 
attempts for an item. 



How to check a program for routine: If a program uses 
randomly selected user negative feedback^ controls the 
number of user attempts at a question, or counts the number 
of wrong responses, some form of this routine is being used 

How to program routine in BASIC: 



9200 REM WRONG AMSWER ROUTINE 

9210 REM INPUT VARIABLES - W, C, N$ 

Q220 REM OUTPUT VARIABLES - W, C 

9230 REM INTERNAL VARIABLES - X9 

9240 w = W + 1:C = C + 1 

9 2 50 X9 = INT ( RNH (1) * 10) + 1 

9260 ON GOTO 

9 270, 92R 0,9290, 9300, 93 10, 9320, 93 30, c)34C^^ 9350 ^ 9360 

0270 PRINT "WRONG ";N$: RETURN 

9280 PRINT "INCORRECT": RETURN 

9290 PRINT »'NOT RIGHT": RETURN 

9300 PRINT N$;" THAT TS INCORRECT": RETURN 

^310 PRINT "NOT THIS TIME ";NS: RETURN 

9320 PRINT "MOT QUITE": RETURN 

^3 30 PRINT "NOPE" : RETURN 

9340 PRINT ".^ORRY ": RETURN 

9350 PRINT "MISTAKE": RETURN 

9360 PRINT "OOPS": RETURN 



How to call routine from program: This routine is usually 
called after an incorrect response is detected in the main 
program. The input variable W (Wrong answer counter) is 
used to keep track of the number of total incorrect 
responses. The input variable C (Counter) keeps track of 
the number of attempts for each individual item. N$ is the 
user's Name supplied from the main program. After W and C 
are updated Program control returns to the main program. 

Sample program usage : 

29220 HOME 

29230 T5 = "WHICH OF THE FOLLOWING DEVICES ALLOWS COMPUTERS 
TO COMMUNICATE USING THE TELEPHONE SYSTEM?": GOSUB 6300 
29240 tS = "STOP": GOSUB 6300 
29250 PRINT " A. SPRITES" 

29260 PRINT " B. MODEMS" 

29270 PRINT " C. SUPRESSORS" 
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29280 PRINT " D. r)B-25S" 

29290 PRINT " F. HUB RINGS" 

293n0 PRINT 
29310 GET A$ 

29320 IF ASC (A$) < 65 OR ASC (A$) > 69 THEN GOSnp 1000: 
GOTO 29310 

29330 CA$ = "R": GOSUB 3100 

29340 IF CR = 1 THEN GOSUB 9000 

29350 IF CR = 0 THEN GOSUB 9200 

29360 VP = 23: GOSUB 8000: IF CC -= 1 THEN 29500 
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Section Feedback 

Description of purpose and use: This routine tells the user 
the number of riqht and wrong responses and the percent of 
right and wrong resoonses. 

How to check a program for routine: If a program offers the 
user summary statistics on section responses some form of 
this routine is being used. ' 

How to program routine in BASIC: 

1(^000 RFIM SECTION FEEDBACK 

1(^010 REM INPUT VARIABLFS - R, W, NS 

10020 RFM OUTPHT VARIABLES - 

10030 REM INTERNAL VARIABLES - R9, W9 

10040 HOME 

10050 PRINT M$;"^": PRINT : PRINT "yOU GOT "; TAB ( 20);P; 
TAB( 25); "RIGHT" 

10060 PRINT : PRINT TAB ( 20)W; TAB ( 25); "WRONG" 
10070 PRINT : PRINT "OUT OF "; TAB ( 20) ;R + W; TAB ( 
25) ;"0UESTIONS," 

10080 R9 = R / (R + w):R9 = R9 * 100:R9 = ( INT ((R9 + .005) 

* 100)) / 100 

10090 W9 = W / (R + W):W9 = W9 * 100:W9 = ( INT ((W9 + .005) 

* 100) ) / 100 

10100 PRINT : PRINT "THAT IS ";R9;" CORRECT AND": PRINT : 
PRINT W9;" INCORRECT." 
1011 0 RETURN 



How to call routine from program: This routine is usually 
called after a section of 'test' items presented in the main 
program. Use of this subroutine assumes that the routines 
for counting R (number of Right responses) and W (number of 
Wrong responses) was previously used. The internal 
variables R9 and W9 are used to convert the right and wrong 
answer counters into percentages. The user's name is added 
to the summary by use of the input variable N$ {Name 
String) . 

Sample program usage: 
30100 HOME 

30110 IF CC = 0 THEN PRINT "Pr.EASE TRY FEEDBACK SECTION 
FIRST. ":VP= 23: GOSUB R000:WT = 0: GOSriR 5000: GOTO 14000 
30120 GOSUB 10000 
30130 GOSUB 8000 
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Fading Prompts 

Description of purpose and use: Fading Prompts is a CAT 
(Computer Assisted Instruction) method which reduces the 
amount of information given to the user through a series of 
Question or oroblem screens. 

How to check a program for routine: If a orogram presents 
the user with a series of Question arranged in such a way 
that the user must supoly more of his or her own information 
in sequential screens the fading prompt method is being 
used. 

How to program routine in BASIC: 
312f^(^ PEM FADING PROMPTS 

31270 T$ = "FADING PROMPT SCREEN 1": GOSllB 62RfC?: PRINT 
31280 TS = "HOW MANY SQUARE INCHES ARE IN A BOARD 2 INCHES 
WIDE AMD 3 INCHES LONG?"; GOSHB 6300 
31290 T$ = "STOP": GOSUB 6300 

31300 PRINT :T$ = "WIDTH (2) X LENGTH (3) = TOTAL (6) 

SO'JARE INCHES.": GOSUB 6300 

31310 T$ = "STOP": GOSLTB 6300: PRINT 

31320 INPUT "ENTER ANSWER THEN PRESS ' RETURN '==>"; A$ 
31330 IF A$ < > "6" THEN PRINT "NO":VP = 23: GOSUB 8000: 
GOTO 31260 

31340 PRINT "GOOD":VP = 23: GOSUB 8000 

31350 T$ = "FADING PROMPT SCREEN 2": GOSUB 6200: PRINT 
31360 T$ = "HOW MANY SQUARE INCHES ARE IN A BOARD 9 INCHES 
WIDE AND 10 INCHES LONG?": GOSUB 6300 
31370 T$ = "STOP": GOSUB 6300: PRINT 

31380 INPUT "ENTER ANSWER THEN PRESS ' RETURN '==>"; A$ 
31390 IF A$ < > "90" THEN PRINT "WRONG":VP = 23: GOSUB 
8000: HOME : GOTO 31350 

31400 PRINT "GOOD":VP = 23: GOSUB 8000 
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Help Screens 

nescription of purpose and use: Help screens are used to 
make a program more 'user friendly* by orovidinq access to 
instructions or important information during program 
execution, '^'his method displays the help screen when the 
user presses the (FSC) key in response to a question. 

How to check a proqram for routine: A program uses HELP 
SCREENS if it allows the user to access instructions or 
other important information based on the user's needs. 

How to program routine in BASIC: 

31100 REM HELP SCREENS 

31110 A7S = "MICR0C0MPUTER":A6S = CHR$ (13) 
31120 A5$ = A7$ + A6^ 

31130 PRINT "IF YOn NEED HELP PRESS";: FLASH : PRINT 
" ' ESC ": NORMAL 
31140 A4$ = "" 

31150 PRINT : PRINT "ENTER THE PASS WORD FOR THIS PROGRAM" 
31160 PRINT "THEN PRESS ' RETURN ' ! " : PRINT 
31170 nET A$ 

311f^0 IF ASC (A$) = 8 THEN A4$ = LEFT$ (A4$,( LEN (A4$) ~ 
1) ) : GOTO 31200 
31190 A4$ = A4$ + A$ 

31200 IF ASC (A$) = 27 THEN GOSUB 31420: HOME : GOTO 
31130 

31210 IF ASC (AS) = 8 THEN PRINT A$;" "; 
31220 PRINT A$; 

31230 IF A4$ = A5$ THEN PRINT : PRINT "THAT IS TT!":VP = 
23: GOSUB 8000: GOTO 31260 

31240 IF ASC (AS) = 13 AND A4S < > A7$ THEN PRINT : 
PRINT "WRONG":VP = 23: GOSUB 8000: HOME :A4S = "": GOTO 
31130 

31250 IF ASC (A$) < > 13 THEN 31170 • 
31420 REM HELP SCREEN FOR ABOVE 

31430 HOME :T$ = "THIS IS A HELP SCREEN": GOSUB 6200 

31440 PRINT : PRINT : FLASH 

31450 TS = A7S: GOSUB 6200: NORMAL 

31460 VP 23: GOSUB 8000 

31470 RETURN 

How to call routine from program: Tf ASC (A$)=8 the program 
has detected that the user has nressed the 'ESC key fASC=8) 
in response to a Question (AS) . The HELP SCREEN is then 
displayed. 
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Exit Routine 

Description of purpose and use: Gives user a departing 
messaqe, starts a new screen^ and gives user RESTART 
instructions . 

How to check a program for routine: A user friendly program 
will tell the user how to restart the program. 

How to program routine in BASIC: 

15^(00 REM PROGRAM EXIT 

isni0 FOR J9 = 1 TO 23 

lSn2(^ PRINT TAB( J9 * 1.5)"RYE!": NEXT J9 

isn3(^ LET TO = 1000: GOSUB R500: HOME 

15040 PRINT "TYPE 'RUN' AND PRESS 'RETURN' TO RESTART": END 



How to call routine from program: Program control can be 
passed to this routine from any location in the program. 
However, in a main menu driven program a user can only reach 
the exit routine from the MAIN MENU. Note that this routine 
passed a value for TD (time delay) to the time delay 
subroutine starting at line R500. 
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Order Form 
CAI Subroutine Disk 
For Apple II Computers 



Please enclose SIC^ for each disk v/anted . 

Name : 
Address : 

City: State: Zipcode: 

Phone : 



Number of disks wanted: 



Date : 



Mail to: 

r'farvin I. Sarapin 
^^7 Essex 

^•Test Lafayette, IN 47^06 
(317) 463-5S75 

Make checks payable to Marvin I. Sarapin 



For office use only: ■ 
Order taken by: 
Order filled by: 
Date: ' 

3S 



